<!-- #include file="configuracoes.asp" -->
<%

opcao = requestGET("opcao")
tabela = requestGET("tabela")
temporada = requestGET("temporada")
pagina = requestGET("pagina")


	AbreConexaoAux tabela

	DIM total

Select Case opcao

	Case "indice"

		%>rr<%
		
		
	Case "lista"
	
		DIM estrutura_lista(500, 20)
		
		str = "Select * FROM ranking where temporada="&temporada&" ORDER BY posicao asc LIMIT "&pagina&" , "&(pagina+MAX_Ranking_pagina)
    	Set rsF = conexao_aux.Execute(str)
		
			estrutura_lista(0, 1) = "C"
			estrutura_lista(0, 2) = "Clube"
			estrutura_lista(0, 3) = "Pontos"
			
			estrutura_lista(1, 1) = 30
			estrutura_lista(1, 2) = 200
			estrutura_lista(1, 3) = 50				
		
		total = 2
		
		Do while not rsF.eof
		
			estrutura_lista(total, 0) = rsF("id_clube")
			estrutura_lista(total, 1) = rsF("posicao")
			estrutura_lista(total, 2) = interface_nome_resp(tabela, rsF("id_clube"))
			estrutura_lista(total, 3) = rsF("premios")+rsF("vitorias")*3+rsF("empates")
			
			total = total + 1
		
		rsF.MoveNext
		Loop
		
		interface_ranking total, 4
		
				
							
		
End Select


%>